*/* $Header: i_op.hs,v 2.2 01/10/02 10:30:25 przybyls Exp $ */

        nolist

***********************************************************************/
* INCLUDE FILE NAME: i_op.hs                                          */
* ==================                                                  */
*                                                                     */
* COMMENT: This include file contains macros for turning interrupts   */
*          off and restoring interrupts.                              */
*                                                                     */
*                                                                     */
*                                                                     */
***********************************************************************/

*****************************/
*   IFDEFS                  */
*****************************/


*****************************/
*   SYMBOLIC CONSTANTS      */
*****************************/


*****************************/
*   MACROS                  */
*****************************/

*  These macros must be used in a pair with the stack pointer
*  at the same place left by OFF when ON is invoked.

INTERRUPTS_OFF  MACRO
                move.w          SR,-(SP)        ;Stack present interrupt status
                ori.w           #$0700,SR       ;Interrupt level = 7
                ENDM

INTERRUPTS_ON   MACRO
                move.w          (SP)+,SR        ;Pop interrupt status off stack
                ENDM

  list
